;-------------------------------------------------------------LICENSE--------------------------------------------------------------;
;                                                                                                                                  ;
;The MAP code is written in Fortran language for magnetohydrodynamics (MHD) calculation with the adaptive mesh refinement (AMR)    ;
;and Message Passing Interface (MPI) parallelization.                                                                              ;
;                                                                                                                                  ;
;Copyright (C) 2012                                                                                                                ;
;Ronglin Jiang                                                                                                                     ;
;rljiang@ssc.net.cn                                                                                                                ;
;585 Guoshoujing Road. Pudong, Shanghai, P.R.C. 201203                                                                             ;
;                                                                                                                                  ;
;This program is free software; you can redistribute it and/or modify it under the terms of the GNU General Public License         ;
;as published by the Free Software Foundation; either version 2 of the License, or (at your option) any later version.             ;
;                                                                                                                                  ;
;This program is distributed in the hope that it will be useful, but WITHOUT ANY WARRANTY; without even the implied warranty of    ;
;MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU General Public License for more details.                        ;
;                                                                                                                                  ;
;You should have received a copy of the GNU General Public License along with this program; if not, write to the Free Software     ;
;Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA  02110-1301, USA.                                                   ;
;                                                                                                                                  ;
;-------------------------------------------------------------LICENSE--------------------------------------------------------------;

;=====================================================================================================================|
pro save_info, entry_info
;=====================================================================================================================|
;  Purpose
;    save the environment of IDL system to a structure
;    
;  Syntax
;    save_info, entry_info
;
;  Inputs
;
;  Outputs
;    entry_info: a structure variable of the current IDL environment
;
;  Examples
;
;  Notes
;
;  History
;    2010-05-16 written by R. L. Jiang at Kwasan Observatory
;    
;  Bug report
;    rljiang@nju.edu.cn
;=====================================================================================================================|

  on_error, 2
  close, /all
  entry_decomposed = 1
  if strlowcase(!d.name) ne 'ps' then device, get_decomposed = entry_decomposed
  tvlct, entry_rgb, /get

  entry_info = {  $
    entry_font : !p.font,  $
    entry_path : !path,  $
    entry_multi : !p.multi,  $
    entry_background : !p.background,  $
    entry_color : !p.color,  $
    entry_decomposed : entry_decomposed,  $
    entry_rgb : entry_rgb,  $
    entry_name : !d.name  $
  }

end
